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VEE Ls Shee Lt rte L ed SUSIE POF Le Be tf dd. 
Sz sti See LP Le titer bz Le Gwe Sh Aimer £ ln WEI 1d wd 
-c WE. fide IDE Lr _< 1 Le (IDE) LetA Sh eccks 5 ie Fi tid Let 


MCAWe O74 (C4')'/=9-N>) [om = (= 

(e1'\ a =y: Von OC BAG) 

(C) Copyright Microsoft 1983,1984,1985,1986,1987 
60300 Bytes free 

(o).4 
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buy chk 
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2 bn SAE eB ibpiage yer KOI LIST 
2 bier LEL St itite Lifer acy LOAD 

2 UWI LE Lb Hip le AUS Pray FILES 

2 beri L bh Aer Mut ky RUN 
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2 Ub SMI LL Neb thee ee hey READ 
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we dnd Loy heel FOR NEXT 
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(Input/Output) 22 237/2é! 


Receive data . 5 . 
ey, re SOW SIPrL ELS Cee es leg i Set, Hit ea 
Generate report / Ps deck SNe 


(Connector) pes 
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(Off Page On Page Connector) KES CUI G ST 
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(Predefined Process) U3, Bz 
| ctw buittre bari LE Sty, A hee SP bidity 
SHI £3 G29 (Userdefined) £63, 94, (Built in)wy) abet, 
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(Comments) 14) 

Seid Le eol dei ter Bersted Le ety 
te LP od Beh ES Be Ue ee 
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STEP 1 START 

STEP 2 INPUT X,Y and Z 

STEP 3 COMPUTE Sum = X+ Y + Z 
STEP 4 COMPUTE Average = Sum/3 
STEP 5 PRINT Sum 

STEP 6 PRINT Average 

Sum = X+Y+Z STEP 7 STOP 








Average = Sum/3 
10 CLS 


20 REM Program to find sum and average of three numbers 
30 INPUT "Enter the first number"; X 

40 INPUT "Enter the second number"; Y 

50 INPUT "Enter the third number";Z 

60 LET SUM = X+Y+Z 

70 AVG =SUM/3 

80 Print "Sum of three numbers = ";SUM 

90 Print "Average of three numbers = ";AVG 

100 END 
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Average of three numbers = 40 
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STEP 1 START 

STEP 2 INPUT N 

STEP 3 COMPUTE Cube of a number (N°) 
STEP 4 PRINT Cube of a number 

STEP 5 STOP 





CUBE = N° 

10 CLS 
20 INPUT "Enter any number";N 

30 LET CUBE = N*3 

40 PRINT "Cube of a number = ";CUBE 
50 END 








Enter any number? 5 
(Ojb lol Woh aaar- Wb oh bi 1] o\-h ata WA) 
fe) '< 
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STEP 1 START 

STEP 2 INPUT Land W 

STEP 3 COMPUTE Area of rectangle (L*W) 
STEP 4 PRINT Area of rectangle 

STEP 5 STOP 





AREA =L* W 

10 CLS 
20 INPUT "Enter length of rectangle";L 

30 INPUT "Enter width of rectangle"; W 

40 LET AREA = L* W 

50 PRINT "The area of rectangle = "";AREA 
60 END 
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Enter width of rectangle? 5 
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STEP 1 START 

STEP 2 INPUT X, Y and Z 

STEP 3 COMPUTE S=(X+Y+Z)/2 

STEP 4 COMPUTE Area of triangle GS*(S=X)" GY)" GZ) ) 
STEP 5 PRINT Area of triangle 

STEP 6 STOP 





10 CLS 

20 REM Find area of triangle 

30 INPUT "Enter length of first side of triangle"; X 
40 INPUT "Enter length of second side of triangle"; Y 
50 INPUT "Enter length of third side of triangle";Z 
60 LET S = (X+Y+Z)/2 

70 AREA = SQR(S*(S-X)*(S-Y)*(S-Z)) 

80 PRINT "Area of triangle = '";AREA 

90 END 
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Area of triangle = 31.30495 

(e) 4 
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STEP 1 START 

STEP 2 INPUT R 

STEP 3 STORAGE 1 = 22/7 

STEP 4 COMPUTE Area of circle (x R’) 


LET l= Day | STEP 5 COMPUTE Circumference of circle (27 R) 


STEP 6 PRINT Area of circle 


AREA = PI*R*R | STEP 7 PRINT Circumference of circle 


STEP 8 STOP 





CIRCUMFERENCE = 2*PI*R 





10 CLS 

20 INPUT "Enter radius of circle";R 

30 LET PI = 22/7 

40 AREA = PI*R*R 

50 CIRCUMFERENCE = 2*PI*R 

60 PRINT "Area of circle = "; AREA 

70 PRINT "Circumference of circle = "; CIRCUMFERENCE 
80 END 
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STEP 1 START 

STEP 2 INPUT L 

STEP 3 COMPUTE Area of square (L’) 

STEP 4 COMPUTE Perimeter of square = 4 L 
STEP 5 PRINT Area of square 


Pee eae STEP 6 PRINT Perimeter of square 
STEP 7 STOP 


Y 


Perimeter = 4 * L 








10 CLS 

20 INPUT "Enter length of one side";L 

30 LET AREA = L*L 

40 LET PERIMETER = 4*L 

50 PRINT "Area of square = "";AREA 

60 PRINT "Perimeter of square = ";PERIMETER 
70 END 
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Enter length of one side? 5 
Area of square = 25 
Perimeter of square = 20 
(eo) 4 





ILIST [JRUN—BRE/LOAD "SAVE "CONT, ” LPT 1y/TRON— IR TROFE SCREEN 
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STEP 1 START 

STEP 2 INPUT H andR 

STEP 3 STORAGE PI = 22/7 

STEP 4 COMPUTE Volume of cylinder (PI*R*R*H) 
STEP 5 PRINT Volume of cylinder 

STEP 6 STOP 





10 CLS 

20 INPUT "Enter height of cylinder";H 
30 INPUT "Enter radius of cylinder";R 
40 LET PI = 22/7 

50 VOL = PI*R*R*H 

60 PRINT "Volume of cylinder = "; VOL 
70 END 
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Enter height of cylinder? 2 
Enter radius of cylinder? 3 
Volume of cylinder = 56.57143 
Ok 
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STEP 1 START 

STEP 2 INPUT L 

STEP 3 COMPUTE Surface area of cube (6 L’) 
STEP 4 COMPUTE Volume of cube (L’) 
STEP 5 PRINT Surface area of cube 


Surface Area = 6*L*L STEP 6 PRINT Volume of cube 
STEP 7 STOP 
Volume = L*L*L | 


1 Volume 








10 CLS 

20 INPUT "Enter length of side of cube";L 

30 LET AREA = 6*L*L 

40 LET VOLUME = L*L*L 

50 PRINT "Surface area of cube = '"; AREA 
60 PRINT "Volume of cube = "; VOLUME 

70 END 
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Enter length of side of cube? 5 
fh bh ah at-Yol— War af -\- oh a o1b | ol — Mo) O) 
Avon bi (Woh aot bl ol — WN IA) 

fe) 4 
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OPT Os! 


<o) Wee. 





STEP 1 START 
STEP 2 INPUT F 

STEP 3 COMPUTE C = 5/9*(F — 32) 
STEP 4 PRINTC 

STEP 5 STOP 





C = 5/9 * (F-32) 10 CLS 


20 REM Conversion of temperature from fahrenheit to centigrade 
30 INPUT "Enter temperature in fahrenheit";F 

40 LET C = 5/9*(F-32) 

50 PRINT "Temperature in centigrade = ";C 

60 END 
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Enter temperature in fahrenheit? 89 = 
Temperature in centigrade = 31.66667 
fe) 
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STEP 1 START 

STEP 2 INPUT C 

STEP 3 COMPUTE F = 9/5*C+32 
STEP 4 PRINT F 

STEPS STOP 





10 CLS 

20 REM Conversion of temperature from centigrade to fahrenheit 
30 INPUT "Enter temperature in centigrade";C 

40 LET F = 9/5*C+32 

50 PRINT "Temperature in fahrenheit = ";F 

60 END 
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Enter temperature in centigrade? 31.66667 
Temperature in fahrenheit = 89 
Ok 
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STEP 1 START 

STEP 2 INPUT V and T 

STEP 3 COMPUTE Distance covered (VT) 
STEP 4 PRINT Distance covered (S) 
STEP 5 STOP 





10 CLS 
20 INPUT "Enter speed (m/sec)";V 
30 INPUT "Enter time (sec)";T 


40 LET S=V*T 
50 PRINT "Distance covered in meters = '";S 
60 END 





Rowe o94(¢)')'/=7-¥-) [om 45 


125 ol Xb aa of {Yo MN 6 VA lod BCE) 

Enter time (sec)? 9 

Distance covered in meters = 72 
Ok 
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© arZ=D 


SERN Siatonen oes We U, Us 4 rp Gey. wK 
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STEP 1 START 

STEP 2 READ values for A,B,C,D,E,F,G,H,I and J specified in data statement 
STEP 3 COMPUTE SUM=A+B+C+D+E+F+G+H+I+J 

STEP 4 PRINT SUM 

STEP5 STOP 





10 CLS 

20 READ A,B,C,D,E,F,G,H,L,J 

30 SUM = A+B+C+D+E+F+G+H-+I+J 
40 PRINT "SUM = "";SUM 

50 DATA 5,10,15,20,25,30,35,40,45,50 
60 END 
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2S 620) LSA Ne 








STEP 1 START 

STEP 2 INPUT values in N,RN,C,S,ENG,UR,PHY,COMP,IS,CHEM,PS,MTH and TOT 
STEP 3 COMPUTE Total Obtained marks (ENG+UR+PHY+COMP+IS +CHEM +PS+MTH) 
STEP 4 COMPUTE Percentage (Total Obtained / TOT *100) 

STEP 5 PRINT N,RN,C,S, Total Obtained and Percentage marks 

STEP 6 STOP 





INPUT N, RN,C,S,ENG,UR,PHY, 
COMP,IS,CHEM,PS,MTH and TOT 





Total obtained 
=ENG+UR+PHY+ COMP+IS + CHEM+PS+MTH 





Percentage = Total obtained/TOT*100 





PRINT N, RN, C,S,Total obtained and Percentage 





@ GarzD 








10 CLS 

20 INPUT "Enter name";N$ 

30 INPUT "Enter roll no.";RN 

40 INPUT "ENTER class";C$ 

50 INPUT "ENTER section";S$ 

60 INPUT "ENTER marks in English";ENG 

70 INPUT "ENTER marks in Urdu";UR 

80 INPUT "ENTER marks in Physics";PHY 

90 INPUT "ENTER marks in Computer";COMP 
100 INPUT "ENTER marks 1n Islamic Study";IS 
110 INPUT "ENTER marks in Chemistry"; CHEM 
120 INPUT "ENTER marks in Pak Study";PS 

130 INPUT "ENTER marks in Mathematics"; MTH 
140 TOBT = ENG + UR + PHY + COMP + IS + CHEM + PS + MTH 
150 INPUT "Enter total marks";TOT 

160 PER = TOBT/TOT*100 

170 PRINT "Name : ";N$ 

180 PRINT "Roll No. : ";RN 

190 PRINT "Class : ";C$ 

200 PRINT "Section : ";S$ 

210 PRINT "Total Obtained marks = ";TOBT 

220 PRINT "Percentage = ";PER 

230 END 
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Enter name? SARA 

Enter roll no.? 25 

ENTER class? Ten 

ENTER section? A 

ENTER marks in English? 89 
ENTER marks in Urdu? 90 

ENTER marks in Physics? 67 
ENTER marks in Computer? 70 
ENTER marks in Islamic Study? 67 
ENTER marks in Chemistry? 76 
ENTER marks in Pak Study? 56 
ENTER marks in Mathematics? 69 
Enter total marks? 800 


Wo} of- Ma @) oh ot- I  oX—-Yo MS 1 \1-hal ¢- eo of! 
Percentage = 73 
[e)'< 
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STEP 1 START 

STEP 2 INPUT N 

STEP 3 DECISION IF N MOD 2 =0 THEN PRINT Even ELSE PRINT Odd 
STEP 4 STOP 





10 CLS 
20 INPUT "Enter a number";N 
IF 30 IF N MOD 2 = 0 THEN PRINT "Even" ELSE PRINT "Odd” 


—_ 40 END 
NO YES 
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Ok 
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STEP 1 START 

STEP 2 INPUT X, Y and Z 

STEP 3 DECISION IF X > Y THEN LAR = X ELSELAR=Y 
STEP 4 DECISION IF Z > LAR THEN LAR = Z 

STEP 5 PRINT LAR 


WE OS Y7 
—__ STEP 6 STOP 
6 se 


NO 








10 CLS 
20 REM Find the largest of three numbers 
ha 30 INPUT "Enter the first number";X 
40 INPUT "Enter the second number"; Y 
50 INPUT "Enter the third number";Z 
60 IF X > Y THEN LAR = X ELSE LAR = Y 
70 IF Z > LAR THEN LAR = Z 
80 PRINT "The largest of three numbers = ";LAR 
90 END 


IPZ > EAR 
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Enter the first number? 2 

1H ob ot—} al ol eX W-{-Lolo} elo Mis oh bhi] el—) ait ammG} 

by oh oX—b ame of oX— Wh ol os ih alo ME obi ii] ol—b atau 

The largest of three numbers = 4 
fe) '< 





ILIST [JRUN—BRE/LOAD "SAVE "CONT, ” LPT 1 TRON TROFE SCREEN 


a 
ON K6 eU ja ee | Fd 7 


O 


LEW AG re 





STEP 1 START 

STEP 2 INPUT N 

STEP 3 DECISION IF (N = 1) OR (N = 2) THEN PRINT Correct input ELSE Wrong Input. 
STEP 4 STOP 


corWa o74()')'/=7.¥-} (om = (3 
Enter any value? 5 
Wrong input 

Ok 














10 CLS 

20 INPUT "Enter any value";N 

30 IF (N = 1) OR (N = 2) THEN PRINT "Correct input" ELSE PRINT "Wrong input” 
40 END 


@ arz, 








ai —s STEP! 
comer po 


INPUT OM, TM STEPS 
STEP 4 

PER = OM/TM*100 
STEPS 








START 

INPUT Obtained marks and Total marks from user. 
COMPUTE Percentage (PER = OM/TM* 100) 
DECISION IF PER >= 80 AND <= 100, award grade 
A+and GOTO step 11 

DECISION IF PER>= 70, award grade A and 

GOTO step 11 


YES IS 
ea —_— STEP6 DECISION IF PER >= 60, award grade B and 
NO GOTO step 11 
ll Is STEP7 DECISION IF PER >=50, award grade C and 
PER>=70 
a GOTO step 11 
“ae a STEP8 DECISION IF PER >= 40, award grade D and 
ele PER>=60 GOTO step 11 
NO STEP9 DECISION IF PER >= 33, award grade E and 
a ia IS GOTO step 11 
PER>=50 
PP .< STEP 10 Award grade F and GOTO step 11 
eas a STEP 11 PRINT Grade awarded (G) 
IS 
es PER>=40 STEP 12 STOP 
NO 


YES Is 
ae k— PER>=33 
NO 
G — “oR”? | 











10 CLS 

20 REM Calculate grade of a student 

30 INPUT "Enter the obtained marks";OM 

40 INPUT "Enter the total marks";TM 

50 LET PER = OM/TM*100 

60 IF PER >= 80 AND PER <= 100 THEN G$ = "A+": GOTO 130 
70 IF PER >= 70 THEN G$ = "A": GOTO 130 
80 IF PER >= 60 THEN G$ ="B": GOTO 130 
90 IF PER >= 50 THEN G$ = "C": GOTO 130 
100 IF PER >= 40 THEN G$ = "D": GOTO 130 
110 IF PER >= 33 THEN G$ = "E": GOTO 130 
120 G$ = "F” 

130 PRINT "Grade = ";G$ 

140 END 


SX C\GWBASIC.EXE 
1h oho —S ah ol ol Wo) oh ur- Wh o(—Co Mb \t- hal err 90) 0) 

1} oho —h aah wl ol — Wn ooh ot- Ma \t-h al ro fol 0) 

(ef af- Ko (- are D) 

fe)! 





ILIST [RZRUN—RE/LOAD "SAVE "CONT i), ” LPT 1 TRON TROFE— WSCREE 








STEP 1 START 

STEP 2 STORAGE I= 1 

STEP 3 DECISION IS I< 10 IF FALSE THEN GOTO STEP 6 
STEP 4 PRINT I 

STEP 5 COMPUTE I= I+1 

STEP 6 STOP 





10 CLS 

20 FOR I= 1 TO 10 
30 PRINT I 

40 NEXT I 

50 END 


Roi o94(¢)')'/=7-¥-] [on 45 


1 
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LIST RUN— CONT TRONS TROFF— SCREE 


eye bY GW 2.4) 


A, 


EVASION ay O=1 Oy 24 


So) ee 





STEP 1 START 

STEP 2 STORAGE I= 2 

STEP 3 DECISION IS I<=10IF FALSE THEN GOTO STEP 7 
STEP 4 PRINT I 

STEP 5 COMPUTE I= [+2 

STEP 6 GOTO STEP 3 

STEP 7 STOP 





10 CLS 

20 FOR I= 2 TO 10 STEP 2 
30 PRINT I 

40 NEXT I 

50 END 
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LIST VARUN/ LOAD "ERR SAVE "CONT J, “LPT 1 TRON E:/TROF EF KEY —SCREE 


© aez™s 


gm 


NE lob rE Mey Ys, 


<2) ee 





STEP 1 START 

STEP 2 STORAGE N= 1 

STEP 3 DECISION IS N <= 10 IF FALSE THEN GOTO STEP 7 
STEP 4 PRINT N 

STEPS COMPUTE N=N+2 

STEP 6 GOTO STEP 3 

STEP 7 STOP 








10 CLS 

20 FOR N = 1 TO 10 STEP 2 
30 PRINT N 

40 NEXT N 

50 END 
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ILIST [RJRUN—BRRLOAD "EESAVE "CONT, ” LPT Ly TRONS -/TROFE.RKEY [YSCREEN 


eye] er, GW 26) 


SIDE EL 72526 100.--- 6.4.27 
UP 





STEP 1 START 

STEP 2 STORAGE SUM = 0 

STEP 3 STORAGE I= 2 

STEP4 DECISION IS I<= 100 IF FALSE THEN GOTO STEP 8 
STEP 5 COMPUTE SUM = SUM+I 

STEP 6 COMPUTE I=I+2 

STEP 7 GOTO STEP 4 

STEP 8 PRINT SUM 

STEP 9 STOP 





10 CLS 

20 LET SUM = 0 

30 FOR I= 2 TO 100 STEP 2 

40 SUM = SUM + I 

50 NEXT I 

60 PRINT "Sum of the series = ";SUM 
70 END 
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Shi oy am ol eX —) series = fls\is\(0; 
eo)" 





sILIST [JRUN—EE/LOAD "SAVE "CONT, ” LPT 1 y/ TRON :TROFF.RKEY [YSCREE 


@ Grr» 


ZF. 


DIG FG ks WE da) Oey 4 


<o) ee 





STEP 1 START 

STEP 2 INPUT N 

STEP 3 STORAGE V = 1 

STEP 4 DECISION IS V<=10IF FALSE THEN GOTO STEP 8 
STEP5 PRINT V*N = V (N) 

STEP 6 COMPUTE V = V+1 

STEP 7 GOTO STEP 4. 

STEP 8 STOP 











10 CLS 

20 INPUT "Enter any number";N 
30 LET V=1 

40 WHILE V <= 10 

50 PRINT N;"*"3V;"=";V*¥N 
60V=V+1 

70 WEND 

80 END 





Rowe o94(€4')'/=7:\-] [om 45 
Enter any number? 7 
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Fe ee ee ee 
a a ee ee 
FPODIDUARWNHE 

Vunu vue de we wea 
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SILIST [RJRUN—ERELOAD "SAVE "TR CONT), ” LPT 1y/TRON—_IRTROFE_KEY [SCREEN 





DP Se 2 UO GIO BV el | 
Ui ge £ 





STEP 1 START 

STEP 2 STORAGE DIM X(5) 

STEP 3 STORAGE N=1,SUM=0 

STEP 4 DECISION IS N <=5 IF FALSE THEN GOTO STEP 9 
STEP 5 INPUT X(N) 

STEP 6 COMPUTE SUM = SUM+X(N) 

STEP 7 COMPUTE N=N+1 

STEP 8 GOTO STEP 4 

STEP 9 COMPUTE MEAN = SUM/5 





NO Is 


INPUTX(N) /f 
SUM = SUM+X (N) | 





let, STEP 10 PRINT MEAN 
MEAN = SUM/S STEP 11 PRINT Actual Acceleration 
v STEP 12 COMPUTE DIFFERENCE = MEAN - 9.8 
PRINT MEAN | 






STEP13 PRINT DIFFERENCE 
STEP 14 STOP 






PRINT Actual Acceleration 





DIFFERENCE = MEAN - 9.8 





PRINT DIFFERENCE 





10 CLS 
20 DIM X(5) 
30 FOR N=1TOS5 
40 INPUT "Enter the value of g"; X(N) 
50 LET SUM=SUM+ X(N) 
60 NEXT N 
70 MEAN = SUM/5 
80 PRINT "Mean value of gis ";MEAN 
ee aa 90 PRINT "Actual value of g is 9.8 m/sec.sec" 
Enter the value of g? 


Enter the value of g? 100 LET DIFFERENCE= MEAN-9.8 


Enter the value of g? . . 

Enter the value of g? 9.7 110 PRINT "Difference 1s "; DIFFERENCE 
Mean value of g is 9.640001 

Actual value of g is 9.8 m/sec.sec 

Difference is -.1599999 120 END 

(eo) 4 
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STEP1 START 

STEP 2 INPUT F 

STEP3 STORAGE N= 1 

STEP 4 STORAGE FACT = 1 

STEPS DECISION IS N <= F IF FALSE THEN GOTO STEP 9 
STEP 6 COMPUTE FACT = FACT*N 

STEP7 COMPUTE N=N+1 

STEP 8 GOTO STEP 5 

STEP9 PRINT FACT 

STEP 10 STOP 








10 CLS 
20 INPUT “ Enter number for factorial ”’; F 
30 FACT= 1 


40 FOR N=1TOF 

50 FACT = FACT *N 

60 NEXTN 

70 PRINT “Factorial of a number = ”; FACT 
80 END 





Roa ona (€4'\'/=7-N-j [om = (5 


‘Enter number for factorial? 6 
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ILIST [R/RUN—BRE/LOAD "SAVE "CONT, ” LPT 1 TRON—SR:TROF EF. RKEY [SCREEN 





” 
SEY (Veer pz es ’ yy 
25) =, 





STEP 1 START 

STEP 2 STORAGE Y=5 

STEP 3 DECISION IS Y >= 1 IF FALSE THEN GOTO STEP 12 
STEP 4 STORAGE X= 1 

STEPS DECISION IS X <= Y IF FALSE THEN GOTO STEP 9 
STEP 6 PRINT * 

STEP 7 COMPUTE X= X+1 

STEP 8 GOTO STEP 5 

STEP9 PRINT 

STEP 10 COMPUTE Y = Y-1 

STEP 11 GOTO STEP 3 

STEP 12 STOP 








10 CLS 
20 FOR Y=5 TO 1 STEP -1 
30 FOR X= 1TO Y 

40 PRINT “*”; 

50 NEXT X 

60 PRINT 

70 NEXT Y 

80 END 
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ILIST [RRZRUN—BE/LOAD "ER SAVE "CONT I), ” LPT 1/TRON—/TROFE— SCREEN 
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STEP 1 START 

STEP 2 STORAGE A=1 

STEP 3 DECISION IS A <= 4 IF FALSE THEN GOTO STEP 8 
STEP 4 READ Values for D(A) from DATA statement 

STEP 5 PRINT D(A) 

STEP 6 COMPUTE A=A +1 

STEP 7 GOTO STEP 3 

STEP 8 STOP 














20 DIM DS$(4) 

30 FORA=1TO4 
40 READ DS(A) 
50 PRINT DS(A) 
60 NEXTA 

70 DATAA,B,C,D 
80 END 
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ILIST [RJRUN—§RELOAD "ESAVE "CONT, ” LPT Ly TRON—SRTROF EF RKEY [SCREEN 


a 
be oe eZ 2 
Ya(Atray)e Mele y faz | 
ZN ie eV NL 





STEP 1 START 

STEP 2 STORAGEN=1 

STEP 3 DECISION IS N <=5 IF FALSE THEN 
GOTO STEP 7 

STEP 4 INPUTA%(N) 

STEP 5 COMPUTE N=Nt+1 

STEP 6 GOTO STEP 3 

STEP 7 PRINT ARRAY IN REVERSE ORDER 

STEP8 DECISIONISN>=1IFFALSE THEN 
GOTO STEP 12 

STEP 9 PRINT A%(N) 

STEP 10 COMPUTE N = N-1 

STEP 11 GOTO STEP 8 

STEP 12 STOP 











10 CLS 
20 DIM A%(5) 
30 FORN=1TO5 
40 INPUT "Enter number = ";A%(N) 
50 NEXT N 
SEIS 60 PRINT "Array in reverse order” 
eae _— 70 FORN=5TO 1 STEP -1 


Enter number = 7 


Enter number = ? 80 PRINT A%(N) 
Enter number = ? 


cae in reverse order 90 NEXT N 
100 END 


Ok 





LIST [RJRUN—SRLOAD "ERE SAVE "CONT, ” LPT Ly/TRON— ER TROFF SCREEN 


© Gar. 
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STEP 1 START 

STEP 2 STORAGE PRO = 1 

STEP 3 DIM N(20) 

STEP 4 STORAGE K = 1 

STEP 5 DECISION IS K <= 20 IF FALSE THEN GOTO STEP 10 
STEP 6 INPUT N(K) 

STEP 7 COMPUTE Product = (Product *N(K)) 
STEP 8 COMPUTE K = K+1 

STEP 9 GOTO STEP 5 

STEP 10 PRINT Product 

STEP 11 STOP 


Slag 33 
10 CLS 
20 PRO = 1 
30 DIM N(20) 


40 FOR K = 1 TO 20 
50 INPUT "Enter number";N(K) 
Leh p amb ehblilel— bait, 
oe ee 70 NEXT K 
80 PRINT "Product = ";PRO 
90 END 








Li 


Enter number? 
Enter number? 
Enter number? 
Enter number? 
1H oh X— al oh bli lel—h aatd 
J Hehe —b ame ehbiiilel—pamed 
J Hohl —b ae ehbiilel—b amt, 
Enter number? 
Enter number? 
Enter number? 
Enter number? 
Enter number? 
Deh Xb ale oh bli el—aned 
Enter number? 
Enter number? 
Enter number? 
Enter number? 
Product = 6.636768E+13 
e) 


NAO TODIWINDUBWDN OVO O~10 UB WD 





sILIST YRUN—RE/LOAD "RR! SAVE “CONT yj,” LPT 1e/TRON :) TROFF KEY 9 SCREE 





a 
UE ALA. pA 5 RIS LP OD 0K 


4_wferg cof 92M yeen 


STEP 1 START 

STEP 2 STORAGEN=1 
STEP 3 DIM X(10) 
STEP 4 DECISION IS N <= 10 IF FALSE THEN GOTO STEP 8 
STEP5 INPUT X(N) 

STEP 6 COMPUTE N=N+1 

STEP 7 GOTO STEP 4 

STEP 8 STORAGE Y =2 

STEP9 STORAGE MAX =X(1) 

STEP 10 DECISION IS Y <= 10 IF FALSE THEN GOTO STEP 14 





DIM X(10) 


IS 
N <= 10 
NO 
YES 
INPUT X(N) / 





N=N+1 
ee a STEP 11 DECISION IF X(Y) > MAX THEN MAX = X(Y) 
= STEP 12 COMPUTE Y=Y+1 


STEP 13 GOTO STEP 10 
STEP 14 PRINT MAX 
STEP 15 STOP 


MAX = X(1) 





NO 
YES 


IF 
X(Y) > MAX 
_— 
MAX = X(Y) | 





© Gar. 








10 CLS 

20 REM Find out the largest number out of 10 given numbers 
30 DIM X(10) 

40 FORN=1 TO 10 

50 INPUT "Enter number"; X(N) 

60 NEXTN 

70 LET Y =2 

80 LET MAX = X(1) 

90 WHILE Y <= 10 

100 IF X(Y) > MAX THEN MAX = X(Y) 
HOY=Y+1 

120 WEND 

130 PRINT "Largest number = ";MAX 
140 END 


<x C:\GWBASIC.EXE 
Enter number? 4 
Enter number? 6 
Enter number? 8 
Enter number? 
Enter number? 
1h oh ok —b ale oh bhi] ol—h alg 
1h oh X—S ai oh bhi lel— bate 

1h oh XS a oh bby lol—b ate 

1h oh XS a oh bby lol — bate 

1h oh XS al oh bhi lol — bate 
Largest number = 22 
fe) 4 


ILIST [RRRJRUN— RELOAD "SAVE "CONT, ” LPT L/TRON—_SRTROF ER KEY [YSCREEN 





UK GW 36) 


ae 
fa] 

ALE VELHO bes Jee pie» | 
(A6}15:45.8.22.21.9.32.77.4.42.6) fp 77-197 





STEP 1 START 

STEP2 DIM A(11) 

STEP3 STORAGE N=0 

STEP4 DECISIONISN<=11 IF FALSE THEN 
GOTO STEP8 














nao STEP 5 READ values for A(N) from DATA statement 
M0 a2 So STEP 6 COMPUTE N=N+1 
N <1 wae Gay, STEP 7 GOTO STEP 4 
YES Sey STEP8 DECISIONIS(N<=11)IF FALSETHEN 
Pas GOTO STEP 14 
OD2-—0 


STEP9 DECISION IS A(N) MOD 2 <0 IF FALSE 
THEN GOTO STEP 11 

STEP 10 PRINT A(N) 

STEP 11 COMPUTE N =N+1 

STEP 12 GOTO STEP 8 

STEP 13 DATA 

STEP 14 STOP 


YES 


PRINT A(N) / 











10 CLS 

20 DIM A(11) 

30 FORN=O0TO11 

40 READ A(N) 

50 NEXTN 

60 DATA 6, 42, 4, 77, 32, 9, 21, 22, 8, 45,15, 46 
70 FORN=0TO11 

80 IF A(N) MOD 2 <> 0 THEN PRINT A(N) 
90 NEXTN 

100 END 
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STEP 1 START 

STEP 2 STORAGE R= 1 

STEP3 STORAGE C= 1 

STEP4 DECISION IS R<=2 IF FALSE THEN GOTO STEP 14 
STEPS DECISION IS C<=2 IF FALSE THEN GOTO STEP 11 
STEP 6 READ Values in X(R,C), Y(R,C) from DATA Statement 
STEP 7 COMPUTE Z (R,C) = X(R,C)+Y(R,C) 

STEP 8 PRINT Z(R,C) 

STEP 9 COMPUTE C=C+1 

STEP 10 GOTO STEP 5 

STEP 11 PRINT 

STEP 12 COMPUTE R= R+1 

STEP 13 GOTO STEP 4 

STEP 14 STOP 














DIM X(2,2), Y(2,2), Z(2,2) 





NO 
1S ro 2 


YES 


Ise 1 1oOw 

















10 CLS 

20 DIM X(2,2), Y(2,2), Z(2,2) 

30 FORR=1TO2 

, | 40 FORC=1TO2 

SEITE 50 READ X(R,C), Y(R,C) 
eee 60 Z(R,C) = X(R,C) + Y(R,C) 

70 PRINT Z(R,C), 

80 NEXTC 

90 PRINT 

100 NEXT R 

LIST [MRUN—MNE)LOAD SAVE "MCONT—[C3, "LPT If TRON-§METROFFBCKEY [mySCREENN =|] () DATA 7,5,7,6 

120 DATA 4,3,6,5 

130 END 
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STEP1 START 

STEP2 STORAGEN=1 

STEP3 DECISION IS (N < 20) IF FALSE THEN GOTO STEP 7 

STEP 4 INPUT A(N) 

STEP5 COMPUTE N=N+1 

STEP6 GOTO STEP 3 

STEP 7 DECISION IS (K = 1 TO 20) IF FALSE THEN GOTO STEP 14 
STEP8 DECISION IS (L=K + 1 TO 20) IF FALSE THEN GOTO STEP 12 
STEP9 DECISION IF A(K) < A(L) THEN TEMP = A(K):A(K) = A(L): ACL) = TEMP 
STEP 10 COMPUTE L=L+1 

STEP 11 GOTO STEP 8 

STEP 12 COMPUTE K = K+1 

STEP 13. GOTO STEP 7 

STEP 14 PRINT “Names in descending order:”’; 

STEP 15 DECISION IS (N =1 TO 20) IF FALSE THEN GOTO STEP 18 
STEP 16 PRINT A(N) 

STEP 17 COMPUTEN=N+1 

STEP 18 GOTO STEP 14 

STEP 19 STOP 





@ Garr. 











oN C:\GWBASIC.EXE 


Enter name? 
Dh oh ot —S al oF bil — Wed 
1h oho —b ale of bail — Weg 
Dy oh ot —S al oF bil — Weg 
15 oho —S ale of bail — We 
Enter name? 
1h oho —S ale of bail — We 
Dy oho —S am oF- bail — We 
1h oho —S ale of bail — We 
Dy oh o—S ai oF bii\— We 
Enter name? 
Enter name? 
Enter name? 
Enter name? 
Enter name? 
Enter name? 
Enter name? 
1h ot —b a of - 111 Weg 
Enter name? 
Enter name? 


IX FV t—a b oo (-¥-Yol_} elo bp ole Moy ae (—b alb 


ZUBAIR 


AHMED 
AIMAN 
ANAM 
ASGHAR 
BILAL 
FAROOQ 
FATIMA 
KHALID 
KHALIL 
MEHWISH 
RAMZAN 
SABA 
SAJID 
oy ORB =) 
SHAFIQ 
SIDRA 
JO) \ BN 
TARIQ 
ZAFAR 
yAG)=7-U8 34 














10 
20 
30 
40 
50 
60 
70 
80 
90 


<— 19 


Rees < is 


TEMP$ = a 





a A$(L) K=K+1 


AS$(L) = TEMP$ — 


P= awl | 





CLS 
DIM A$(20) 
FOR N=1 TO 20 


INPUT "Enter name";A$(N) 

NEXT N 

FOR K = 1 TO 20 

FOR L=K+1 TO 20 

IF A$(K)<A$(L) THEN TEMP$=A$(K):A$(K)=A$(L):A$(L)=TEMP$ 
NEXT L 


100 NEXT K 

110 PRINT "Names in descending order: "; 
120 PRINT 

130 FOR N = 1 TO 20 

140 PRINT AS$(N) 

150 NEXT N 

160 END 


6 GW 
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STEP1 START 
STEP2 DIM G(5) 
ae STEP3 STORAGE N=1,SUM=0 
STEP4 DECISIONISN<=5IF FALSE THEN 
GOTO STEP8 
STEP5 INPUT G(N) 
STEP 6 COMPUTE SUM = SUM+G(N) 


NO era Va 
en STEP 7 COMPUTE N=Nt+1 





No 






DSi SN) 


mig STEP8 GOTO STEP 3 
GOSUB SUBROUTINE STEP 9 SUBROUTINE MEAN 
MEAN = SUMIS STEP 10 COMPUTE MEAN = SUM/S5 
—< STEP 11 PRINT MEAN 


PRINT MEAN _ 






STEP12 PRINT Actual value of g 
STEP 13 COMPUTE DIFFERENCE = MEAN-9.8 
STEP 14 PRINT DIFFERENCE 
STEP 15 STOP 





PRINT 9.8m/s.s_ 


DIFFERENCE = MEAN-9.¢— ; 


PRINT DIFFERENCE / 








10 CLS 
é' | 20 REM How subroutine is called in main function 

=X C:\GWBASIC.EXE 30 DIM G(5) 
ener cel valde eeraeio! 40 FORN=1T0O5 
Enter the value ot $° : 50 INPUT "Enter the value of g";G(N) 
Mean value of g is 9.640001 — oe 
ee ee ——< 

80 GOSUB 100 

90 END 


100 MEAN = SUM/5 

110 PRINT "Mean value of g is ";MEAN 

120 PRINT "Actual value of g is 9.8 m/sec.sec" 
130 LET DIFFERENCE = MEAN-9.8 

140 PRINT "Difference is "; DIFFERENCE 
150 RETURN 


© Garr, 





UF PVE tL cin Yea 
ZW ELC 





STEP 1 START 

STEP 2 INPUT Name 

STEP3 COMPUTE Length ofname=LEN (N$) 
STEP 4 PRINT Length of name 

STEPS STOP 





10 CLS 

20 INPUT "Enter your name";N$ 
30 LENGTH = LEN(N$) 

40 PRINT LENGTH 

50 END 





ROWE O74 (C)')'/=7:X>) (om => (= 
Enter your name? FAROOQ AHMED SADDIQUI 
21 


Ok 





LIST VARUN—E/ LOAD "RR! SAVE "CONT: J,” LPT 1y/ TRON E:/TROF FR KEY 9 SCREEN 
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STEP 1 START 

STEP 2 STORAGE I= 1 

STEP 3 DECISION IS I <=5 IF FALSE THEN GOTO STEP 7 
STEP 4 PRINT RANDOM NUMBER 

STEPS COMPUTE I=I+ 1 

STEP 6 GOTO STEP 3 

STEP 7 STOP 








10 CLS 

20 FORI=1TO5 

30 PRINT INT(RND * 100) 
40 NEXT I 

50 END 
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LIST [RJRUN—§RELOAD "SAVE "CONT, ” LPT Ly/TRON—_RTROF ER KEY [SCREEN 
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STEP 1 START 

STEP 2 INPUTN 

STEP 3 COMPUTE CHAR$ = CHRS(N) 
STEP 4 PRINT CHARS 

STEP 5 STOP 





10 CLS 

20 INPUT "Enter ASCII code";N 
30 CHAR$ = CHR$(N) 

40 PRINT "Character = ";CHAR$ 
50 END 





<\ C:\GWBASIC.EXE 

1 oo —} alo) Om Ill ol olo (— Wa of) 
(04 o¥-bat- Loh i —b aN 

(eo) 





SILIST [e/RUN—BRE/LOAD "ERE SAVE "CONT, ” LPT 1 y/TRON—_R-TROF EF. RKEY [SCREEN 
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STEP 1 START 

STEP 2 STORAGE A = “Pakistan Zindabad”’ 
STEP 3 Extract string using MID$ function 
STEP 4 PRINT Extracted string 

STEP 5 STOP 





10 CLS 

20 LET A$ = "Pakistan Zindabad” 
30 C$ = MID$(A$,6,3) 

40 PRINT C$ 

50 END 
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LIST [RJRUN—§RE/LOAD "SAVE "CONT, ” LPT 1/TRON—SRTROFE'-KEY [YSCREEN 
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STEP 1 START 

STEP 2 INPUT a string from user 

STEP 3 Extract first three characters from given string using Left$ function. 
STEP 4 PRINT Extracted string 

STEP 5 STOP 





C$ = LEFT$ (N$,3) 





I0- CLS 

20 INPUT "Enter your name";N$ 

30 C$ = LEFT$(N$,3) 

40 PRINT "First three characters of your name are : ";C$ 
50 END 





Rowe o7a(1')'/=7.\-) [om = 43 

Enter your name? Atif 

First three characters of your name are : Ati 
eo) 4 





SILIST [RZRUN—EE/LOAD "EU SAVE "CONT, ” LPT 1/TRON—/ TROFF.RKEY [EY SCREEN 


by GW 46, 


S=Dsle (NBs au 
OS PEELE 





STEP 1 START 

STEP 2 User defined function DEF FN to find area as 
DEF FN A(Y,Z) = Y*Z 

STEP 3 INPUT L, W 

STEP 4 PRINT FN A(L,W) 





10 CLS 

20 DEF FN ACY,Z) = Y * Z 

30 INPUT "Enter length of rectangle";L 

40 INPUT "Enter width of rectangle";W 

50 PRINT "The area of rectangle is"; FN A(L,W) 
60 END 





Rowe oa(e)'\'/=7.\-} (om =) 45 

1} oh ot} oe Ay ole ol o Mob a Yoh ot- belo ml K- Waa) 
Enter width of rectangle? 7 
id eX kt ob MD a You oth oe Kan 
(e) 4 





LIST [RJRUN—BRE/LOAD "SAVE "CONT, ” LPT 1/TRON—ERTROFEKEY [SCREEN 
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Z RY; O Z fa 
48 Seah Sey Lash ofeleo Lh 
Dye Oa eV eA Roba 


2_ Soko ele? eet 





STEP 1 START 

STEP 2 STORAGE S=“Y” 

STEP3 OPEN file “MPHONE.TXT” for OUTPUT as #1 

STEP 4 DECISION IF S=“Y” OR S = “y” IF FALSE THEN 
GOTO STEP 9 

STEP 5 INPUT Name, Phone and Address 

STEP 6 WRITE Name Phone and Address in MPHONE.TXT file 

STEP 7 INPUTS 

STEP 8 GOTO STEP 4 

STEP 9 CLOSE #1 

STEP 10 STOP 


10 CLS 

20 S$="Y” 

30 OPEN "MPHONE.TXT" FOR OUTPUT AS #1 
40 WHILE S$ ="Y" OR S$ ="y” 

50 INPUT "Enter name";N$ 

60 INPUT "Enter phone";P$ 

70 INPUT "Enter Address";A$ 

80 WRITE #1, N$, P$, A$ 

90 INPUT "Do you want ot enter more record [Y/N]";S$ 
ae — 100 WEND 

Enter phone? 03064455667 110 CLOSE #1 


D5 oh Xp ae Volo bal-¥-¥- Sram YN; (0) 42) 

Do you want ot enter more record [Y/N]? Y 

1 ot ale okt 11\— Wea 1010/0) 120 END 
Enter phone? 03337788995 

Enter Address? RAWALPINDI 

Do you want ot enter more record [Y/N]? N 

Ok 
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LIST [iR/RUN- RELOAD "TRE SAVE'RRSCONT- RR), "LPT LR TRONRTROFERREKEY [RR SCREEN 
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ES ALUN ay Ua 
aCe ae 





Step 1 START 
Step 2 PRINT SCREEN 2 
Step 3 PRINT LINE (100,20) - (550,180) 





Step 4 STOP 
Olmom 33 
10 CLS 
20 SCREEN 2 
30 LINE (100,20)-(550,180) 
40 END 


[cl] 
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Step 1 START 

Step 2 PRINT SCREEN 2 

Step 3 PRINT LINE(100,50) - (540,150),, B 
Step 4 STOP 


Olmogm 3 
10 CLS 
20 SCREEN 2 
30 LINE (100,50) - (540,150),,B 
40 END 
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STEP 1 START 

STEP 2 PRINT SCREEN 2 

STEP 3 PRINT LINE (320,50)-(370,150) 
STEP 4 PRINT LINE (370,150)-(270,150) 
STEP 5 PRINT LINE (270,150)-(320,50) 
STEP 6 STOP 


Olmgne 33 
10 CLS 
20 SCREEN 2 
30 LINE (320,50)-(370,150) 
40 LINE (370,150)-(270,150) 
50 LINE (270,150)-(320,50) 
60 END 
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Step 1 START 

Step 2 PRINT SCREEN 2 

Step 3 PRINT CIRCLE(320,100),80 
Step 4 STOP 


Olmom 3 
10 CLS 
20 SCREEN 2 
30 CIRCLE (320,100),80 
40 END 


par ie 
emg) :4 








eal (CIRCDEZ Oy 947, V eee 
Ble DS pews asa 





STEP 1 START 
STEP 2 PRINT SCREEN 2 

STEP 3 PRINT CIRCLE (320,100),60 
STEP 4 PRINT CIRCLE (320,100),80 


STEP5 STOP 
Olmom 3 
10 CLS 
20 SCREEN 2 


30 CIRCLE (320,100),60 
40 CIRCLE (320,100),80 
50 END 





Se 
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ee CINCUEAIDINWEU a ine || 
ANGE ene aarze eet? 8 


STEP 1 START 

STEP 2 PRINT SCREEN 2 

STEP 3 PRINT CIRCLE (320,100),150 
STEP 4 PRINT LINE(470,100)-(170,100) 
STEP 5 PRINT LINE(170,100)-(320,38) 
STEP 6 PRINT LINE (320,38)-(470,100) 
STEP 7 STOP 


olmon :3 
10 CLS 
20 SCREEN 2 
30 CIRCLE (320,100),150 
40 LINE (470,100)-(170,100) 
50. LINE (170,100)-(320,38) 
60 LINE (320,38)-(470,100) 
70 END 





Se 


(0) .¢ 
; 
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EI SAL DRM ayo 
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STEP 1 START 
STEP 2 PRINT SCREEN 2 
STEP 3 PSET (220,150) 

STEP 4 DRAW “E100 F100 L200” 
STEP5 STOP 


Olmge 33 
10 CLS 
20 SCREEN 2 
30 PSET(220,150) 
40 DRAW "E100 F100 L200” 
50 END 
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SSH ot! 


ye CIRCEESIDRAWEU 127 piece | 
4 Ao Po Lele /74_ cet LIMA 


STEP 1 
STEP 2 
STEP 3 
STEP 4 
STEP 5 
STEP 6 


10 
20 
30 
40 
50 


a 60 





GX _C:\GWBASIC.EXE 





START 
SCREEN 2 
PSET(200,130) 

DRAW “E100 F100 L200” 
CIRCLE(300,100),50 
STOP 


Olmge 33 
CLS 
SCREEN 2 
PSET(200,130) 
DRAW "E100 F100 L200” 
CIRCLE (300,100),50 
END 


__ BER 





é JJJezreReBaw ay pag 
wy Neec (Masentae=y ea. 





STEP 1 START 
STEP 2 SCREEN 8 
STEP3 CIRCLE (320,100),50,5 


STEP 4 STOP 
Olmom :3 
10 CLS 
20 SCREEN 8 
30 CIRCLE (320,100),50,5 
40 END 
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37- 05 north latitude and 60-50 to 77- 50 east longitude touching the Hindukush 
Mountains in the north and extending from the Pamurs to the Arabian Sea. 


Pakistan covers 796,095 so.kin with a population of 152.35 million according to 
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FIRST GENERATION COMPUTERS 
The first computer that used stored program concept was the Electronic Delayed 
Storage Automatic Computer (EDSAC) developed in 1949. 


Another was the Electronic Discrete Variable Automatic Computer (EDVAC) that 
used the same concept. The program and data were fed in the EDVAC through 
punched paper tapes. 
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The keyboard is an important input device used to enter data and 
instructions into a computer. A standard arrangement of keys is the 
QWERTY arrangement. Popular keyboards have enhanced QWERTY 


arrangement. The two basic styles of keyboard are PC/XT-Style keyboards 
and AT-Style keyboards. 
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Pakistan is a fedral parliamentary republic consisting of four provences and 
four federal territories. [t is an ethnically and linguastically diverse country, 
with a similar variation in itsgeography and wildlife. A regional and middle 
power, Pakistan has the fourth largest standing armed forces in the world and 
is also a nuclear power as well as a declared nuclear state, being the only 
nation in the Muslim world, and the second in South Asia, to have that status. 
It has a semi-industrialized econmy with a well-integrated agriculture. Its 
economy is the 26th largest in the world in terms of purchasing power and 
45th largest in terms of nominal GDP and 1s also charactrized among the 
emerging and growth-leading economies of the world. 
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A number of programs have been designed to protect software from viruses. 
These are called anti-virus programs. However, no anti-virus program 
guarantees protection against all viruses. Most anti-virus programs can be 
used to eliminate a virus found 1n a disk. Many computer users have installed 
these anti-virus programs on their computers. A good anti-virus program 
checks for infected files automatically every time you insert any kind of disk 
or use your modem to retrieve a file. 
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Stand by: In stand by mode, computer consumes less electric 
power but remains available for immediate use. 
Shut down: Use this option when you want to turn off your computer. 


Restart: Use this option when you want to restart your 





computer 
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